unit uConf;

interface

procedure SaveConf;
procedure LoadConf;

implementation

uses uMain, IniFiles, SysUtils, uUtils;

var
  AppName: string;

procedure SaveConf;
var
  F: TIniFile;
  //  i: Integer;
  //  S: string;
begin
  AppName := ExtractFileName(ParamStr(0));
  F := TIniFile.Create(Path + '.ini');
  try
    with fMain do
    begin

    end;
  finally
    F.Free;
  end;
end;

procedure LoadConf;
var
  F: TIniFile;
  //  i: Integer;
  //  S: string;
begin
  AppName := ExtractFileName(ParamStr(0));
  F := TIniFile.Create(Path + '.ini');
  try
    with fMain do
    begin

    end;
  finally
    F.Free;
  end;
end;

initialization
  AppName := ExtractFileName(ParamStr(0));

finalization

end.

